0 REPEAT:CALL#E630:A=PEEK(#2F):IFA<10THENA=A+12' CALL#E6C9 POUR ATMOS
1 PRINTCHR$(A);:UNTILKEY$<>"" ' MAGNETO+ENREGISTREMENT+PRISE EAR BRANCHEE